Skunkware 5/Skunkware 5.iso/src/Tools/mpack-1.2/amigados.c

C/C++ Source or Header | 1995-05-03 | 4.8 KB | 183 lines

/* (c) Copyright 1993 by Mike W. Meyer
 *
 * Permission to use, copy, modify, distribute, and sell this software
 * and its documentation for any purpose is hereby granted without
 * fee, provided that the above copyright notice appear in all copies
 * and that both that copyright notice and this permission notice
 * appear in supporting documentation, and that the name of Mike W.
 * Meyer not be used in advertising or publicity pertaining to
 * distribution of the software without specific, written prior
 * permission.  Mike W. Meyer makes no representations about the
 * suitability of this software for any purpose.  It is provided "as
 * is" without express or implied warranty.
 *
 * MIKE W. MEYER DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS
 * SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
 * FITNESS, IN NO EVENT SHALL MIKE W. MEYER BE LIABLE FOR ANY SPECIAL,
 * INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER
 * RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION
 * OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR
 * IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 */

#include <exec/types.h>
#include <exec/exec.h>
#include <dos/dos.h>

#ifdef __SASC
#include <proto/exec.h>
#include <proto/dos.h>
#else
#include <clib/exec_protos.h>
#include <clib/dos_protos.h>
#endif

#include <stdlib.h>
#include <stdio.h>
#include <time.h>
#include <string.h>
#include <errno.h>

#include "common.h"
#include "xmalloc.h"

#define BADCHARS    "#?()|[]%<>:;$&*\\\ \t\`\""
#define FILELEN        29        /* Max file name length */

int overwrite_files = 0 ;
static char *output_fname = NULL;
extern int errno, _OSERR ;
void os_perror(char *) ;
int __buffsize = 8192 ;


/* Generate a message-id */
char *
os_genid(void) {
    static struct Task *task = NULL ;
    static time_t now ;
    static char hostname[32], domainname[32] ;
    char *result ;

    if (task == NULL) {
        task = FindTask(NULL) ;
        time(&now) ;
        if (GetVar("hostname", hostname, sizeof(hostname), 0) < 0)
            strcpy(hostname, "random-amiga") ;
        if (strchr(hostname, '.')) domainname[0] = '\0' ;
        else if (GetVar("domainname", domainname, sizeof(domainname), 0) < 0)
            strcpy(domainname, ".random-domain") ;
        if (domainname[0] && domainname[0] != '.')
            strcpy(&hostname[strlen(hostname)], ".") ;
        }
    result = malloc(25 + strlen(hostname) + strlen(domainname)) ;
    sprintf(result, "%d.%d@%s%s", (long) task, now++, hostname, domainname) ;
    return result ;
    }

/* Create and return a directory for a message-id */
char *
os_idtodir(char *id) {
    static char buf[512] ;
    char *p, save ;
    BPTR *dir ;

    if (p = getenv("METAMAIL_P_DIR")) strcpy(buf, p) ;
    else strcpy(buf, "t:");

    if (!(p = getenv("USERNAME")) && !(p = getenv("USER"))) p = "anonymous" ;
    AddPart(buf, p, sizeof(buf)) ;

    if (mkdir(buf) == -1 && errno != EEXIST && _OSERR != ERROR_OBJECT_EXISTS) {
        os_perror(buf) ;
        return NULL ;
        }

    p = buf + strlen(buf) ;
    *p++ = '/' ;
    save = id[FILELEN] ;
    id[FILELEN] = '\0' ;
    while (*id) {
        if (isprint(*id) && !strchr(BADCHARS, *id)) *p++ = *id ;
        id += 1 ;
        }
    *p  = '\0' ;
    id[FILELEN] = save ;

    if (mkdir(buf) == -1 && errno != EEXIST && _OSERR != ERROR_OBJECT_EXISTS) {
        os_perror(buf) ;
        return NULL ;
        }
    strcpy(p, "/") ;
    return buf ;
    }

/* Delete the directory created by os_idtodir() */
void
os_donewithdir(char *dir) {

    /* Chop off trailing slash */
    dir[strlen(dir) - 1] = '\0' ;
    rmdir(dir) ;
    }

/* Create a new file of name "fname". Clean up the name first */
FILE *
os_newtypedfile(char *fname, char *contentType, int binary) {
    char *p, *name, *description, buf[512] ;
    FILE *outfile ;
    static int filesuffix = 0 ;

    name = FilePart(fname) ;

    /* No BADCHARS */
    for (p = name; *p; p += 1)
        if (!isprint(*p) || strchr(BADCHARS, *p)) *p = 'X' ;

    /* Add a count if we don't have a name, or we aren't overwriting */
    if (!*fname || !overwrite_files) {
        if (*name) strcpy(buf, name) ;
        else {
            name = "part" ;
            sprintf(buf, "part.%d", ++filesuffix) ;
            }
        while (outfile = fopen(buf, "r")) {
            if (outfile) fclose(outfile) ;
            sprintf(buf, "%s.%d", name, ++filesuffix) ;
            }
        name = buf ;
        fclose(outfile) ;
        }

    if (!(outfile = fopen(name, "w"))) os_perror(name) ;

    if (output_fname) free(output_fname) ;
    output_fname = strsave(name) ;
    description = xmalloc(strlen(name) + 6) ;
    strcpy(description, name) ;
    strcat(description, ".desc") ;
    (void) rename(TEMPFILENAME, description) ;
    free(description) ;

    fprintf(stdout, "%s (%s)\n", output_fname, contentType) ;
    return outfile ;
    }

/* Warn user that MD5 digest didn't match */
void
os_warnMD5mismatch(void) {
    char *warning;

    warning = xmalloc(strlen(output_fname) + 100);
    sprintf(warning, "%s was corrupted in transit", output_fname);
    warn(warning);
    free(warning);
    }

/* Report an error (in errno) concerning a filename */
void
os_perror(char *file) {
    if (errno != EOSERR) perror(file);
    else poserr(file) ;
    }